Info-Mac 1992 August/info-mac-1992.iso/Language (lang)/Lazy-Scheme/Divers/Fib-init

Text File | 1992-03-05 | 755 b | 20 lines | [TEXT/Help]

{How to load compiled code for fib: Heavy… but it works !!}
{For pathes to be OK, lauch help from its directory, do not modify any names…}

(begin
    (define (fib n)) ;on cree une fermeture
    (define xref (force (cell 'fib <? 2 1 + fib 1- - ƒ))) ; on cree un vecteur de references externes sans forwarders
    (define e (getext xref "Fib" ":Divers:foreign")) ;on charge le code
    (coerce fib (type '(a b))) ;on coerce pour pouvoir faire des rplaca (laid)
    (car=! fib e) ;passage du thunk charge
    (cdr=! fib ()) ; de l'environnement
    fib
    (masgc) ;on nettoie
    (coerce fib 12) ;on remet le type fermeture
    (setstrict fib %1) ; on rend fib strict
)

(chrono (fib 20)) ; le test sur II Ci... :-) joie
{ = [10946  1.150000000000000000e+0  0.000000000000000000e+0] }